home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / coding / dsp / bfltlib.exe / BTEST.C < prev    next >
Text File  |  1991-08-08  |  1KB  |  45 lines
  1. /**************************************************************
  2.   
  3.                  btest.c
  4.   
  5.                  staff
  6.   
  7.                  08-08-91
  8.   
  9.            (C) Texas Instruments Inc., 1992 
  10.   
  11.            Refer to the file 'license.txt' included with this 
  12.            this package for usage and license information. 
  13.   
  14. *************************************************************/
  15. #include "math.h"
  16. #include "float.h"
  17. #include "bflt.h"
  18.  
  19. bfloat b1, b2, b3, b4, b5;
  20. float  f1, f2, f3, f4, f5;
  21. int     i;
  22.  
  23. void main(void)
  24. {
  25.   f1 = -0.5;
  26.   i = 0;
  27.   for(;;)
  28.   {
  29.     b1 = flt_b(f1);
  30.     b2 = bmodf(b1,&b3); f2 = b_flt(b2); f3 = b_flt(b3);
  31.     b4 = blog10(b1);    f4 = b_flt(b4);
  32.     b5 = bldexp(b1,i);  f5 = b_flt(b5);
  33.     /*
  34.     b2 = bsinh(b1);   f2 = b_flt(b2);
  35.     b3 = bcosh(b1);   f3 = b_flt(b3);
  36.     b4 = btanh(b1);   f4 = b_flt(b4);
  37.     b5 = bpow(b1,b1); f5 = b_flt(b5);
  38.  
  39.     b2 = bceil(b1);   f2 = b_flt(b2);
  40.     b3 = bfloor(b1);  f3 = b_flt(b3);
  41.     b4 = bfix(b1);    f4 = b_flt(b4);
  42.     */
  43.   }
  44. }
  45.